object icms: Ticms
  Left = 2
  Top = 1
  Width = 1296
  Height = 977
  Caption = 'ICMS Online'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 12
    Width = 139
    Height = 16
    Caption = 'C'#243'digo da Empresa'
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label4: TLabel
    Left = 8
    Top = 88
    Width = 67
    Height = 13
    Caption = 'Vencimento'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 8
    Top = 112
    Width = 64
    Height = 13
    Caption = 'Pagamento'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 208
    Top = 112
    Width = 30
    Height = 13
    Caption = 'Valor'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label7: TLabel
    Left = 176
    Top = 88
    Width = 65
    Height = 13
    Caption = 'Nota Fiscal'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Panel2: TPanel
    Left = 0
    Top = 136
    Width = 1280
    Height = 785
    Align = alCustom
    TabOrder = 13
    object Label2: TLabel
      Left = 976
      Top = 40
      Width = 32
      Height = 13
      Caption = 'Label2'
    end
    object Splitter1: TSplitter
      Left = 1
      Top = 1
      Width = 1278
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    object WebBrowser1: TWebBrowser
      Left = 1
      Top = 4
      Width = 1278
      Height = 780
      Align = alClient
      TabOrder = 0
      OnStatusTextChange = WebBrowser1StatusTextChange
      OnProgressChange = WebBrowser1ProgressChange
      OnDocumentComplete = WebBrowser1DocumentComplete
      ControlData = {
        4C000000168400009E5000000000000000000000000000000000000000000000
        000000004C000000000000000000000001000000E0D057007335CF11AE690800
        2B2E126208000000000000004C0000000114020000000000C000000000000046
        8000000000000000000000000000000000000000000000000000000000000000
        00000000000000000100000000000000000000000000000000000000}
    end
    object TabbedNotebook1: TTabbedNotebook
      Left = 0
      Top = 1
      Width = 1057
      Height = 200
      Align = alCustom
      TabFont.Charset = DEFAULT_CHARSET
      TabFont.Color = clBtnText
      TabFont.Height = -11
      TabFont.Name = 'MS Sans Serif'
      TabFont.Style = []
      TabOrder = 1
      Visible = False
      OnClick = TabbedNotebook1Click
      object TTabPage
        Left = 4
        Top = 24
        Caption = 'Excel'
        object StringGrid1: TStringGrid
          Left = 0
          Top = 0
          Width = 1049
          Height = 169
          Align = alTop
          DefaultColWidth = 200
          FixedCols = 0
          TabOrder = 0
          ColWidths = (
            200
            200
            200
            200
            200)
        end
      end
    end
  end
  object ProgressBar1: TProgressBar
    Left = 1064
    Top = 152
    Width = 150
    Height = 17
    Smooth = True
    TabOrder = 7
  end
  object Edit1: TEdit
    Left = 8
    Top = 8
    Width = 33
    Height = 21
    TabOrder = 0
    Text = '0000'
    OnChange = Edit1Change
    OnExit = Edit1Exit
  end
  object DBEdit1: TDBEdit
    Left = 48
    Top = 8
    Width = 217
    Height = 21
    DataField = 'NOME_EMPRESA'
    DataSource = base.DSempresas
    Enabled = False
    TabOrder = 9
  end
  object BitBtn2: TBitBtn
    Left = 268
    Top = 8
    Width = 33
    Height = 21
    TabOrder = 10
    TabStop = False
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333FF3333333333333003333
      3333333333773FF3333333333309003333333333337F773FF333333333099900
      33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
      99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
      33333333337F3F77333333333309003333333333337F77333333333333003333
      3333333333773333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object Memo1: TMemo
    Left = 1064
    Top = 168
    Width = 153
    Height = 89
    Lines.Strings = (
      'Memo1')
    TabOrder = 11
    Visible = False
    WordWrap = False
  end
  object RadioGroup1: TRadioGroup
    Left = 368
    Top = 3
    Width = 257
    Height = 40
    Caption = 'ICMS Normal/Diferen'#231'a de Aliquota'
    Columns = 2
    TabOrder = 12
    TabStop = True
    OnClick = RadioGroup1Click
  end
  object Button1: TButton
    Left = 367
    Top = 49
    Width = 128
    Height = 21
    Caption = 'Processar'
    TabOrder = 6
    OnClick = Button1Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 920
    Width = 1280
    Height = 19
    Panels = <
      item
        Width = 1000
      end
      item
        Width = 100
      end>
  end
  object Edit2: TEdit
    Left = 304
    Top = 8
    Width = 57
    Height = 21
    TabOrder = 14
  end
  object DateTimePicker1: TDateTimePicker
    Left = 80
    Top = 80
    Width = 89
    Height = 21
    Date = 41771.682691354170000000
    Time = 41771.682691354170000000
    TabOrder = 1
    OnExit = DateTimePicker1Exit
  end
  object DateTimePicker2: TDateTimePicker
    Left = 80
    Top = 104
    Width = 89
    Height = 21
    Date = 41771.682691354170000000
    Time = 41771.682691354170000000
    TabOrder = 2
    OnExit = DateTimePicker2Exit
  end
  object Edit3: TEdit
    Left = 246
    Top = 105
    Width = 73
    Height = 21
    TabOrder = 4
    Text = '0,00'
    OnExit = Edit3Exit
  end
  object Edit4: TEdit
    Left = 246
    Top = 80
    Width = 73
    Height = 21
    TabOrder = 3
    OnExit = Edit4Exit
  end
  object Memo2: TMemo
    Left = 328
    Top = 80
    Width = 305
    Height = 49
    TabOrder = 5
    OnEnter = Memo2Enter
    OnExit = Memo2Exit
  end
  object Button2: TButton
    Left = 367
    Top = 49
    Width = 128
    Height = 21
    Caption = 'Calcular'
    TabOrder = 16
    Visible = False
    OnClick = Button2Click
  end
  object MaskEdit1: TMaskEdit
    Left = 304
    Top = 8
    Width = 57
    Height = 21
    EditMask = '00/0000'
    MaxLength = 7
    TabOrder = 17
    Text = '  /    '
    OnExit = MaskEdit1Exit
  end
  object Edit5: TEdit
    Left = 1120
    Top = 128
    Width = 121
    Height = 21
    TabOrder = 18
    Visible = False
  end
  object RadioGroup2: TRadioGroup
    Left = 8
    Top = 32
    Width = 353
    Height = 41
    Caption = 'Outras Op'#231#245'es'
    Columns = 3
    Items.Strings = (
      'ICMS ST'
      'ICMS Outras'
      'C'#225'lculo em Atraso')
    TabOrder = 19
    OnClick = RadioGroup2Click
  end
  object Panel1: TPanel
    Left = 837
    Top = 464
    Width = 364
    Height = 329
    BevelOuter = bvLowered
    TabOrder = 8
    Visible = False
    object Edit7: TEdit
      Left = 8
      Top = 10
      Width = 257
      Height = 21
      CharCase = ecUpperCase
      TabOrder = 0
      Text = 'DIGITE O NOME DA EMPRESA AQUI'
      OnChange = Edit7Change
      OnEnter = Edit7Enter
    end
    object Button4: TButton
      Left = 272
      Top = 10
      Width = 81
      Height = 21
      Caption = 'Fechar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      TabStop = False
    end
    object DBGrid1: TDBGrid
      Left = 8
      Top = 32
      Width = 345
      Height = 289
      DataSource = base.DSempresas
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'cod_empresa'
          Title.Alignment = taCenter
          Title.Caption = 'C'#243'digo'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 59
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'nome_empresa'
          Title.Caption = 'Empresa'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = [fsBold]
          Width = 233
          Visible = True
        end>
    end
  end
  object Table3: TADOTable
    Connection = base.SISTEMA
    TableName = 'Estadual'
    Left = 488
    Top = 152
    object Table3Codigo: TWideStringField
      FieldName = 'Codigo'
      FixedChar = True
      Size = 4
    end
    object Table3Usuario: TStringField
      FieldName = 'Usuario'
      Size = 50
    end
    object Table3Parte1: TWideStringField
      FieldName = 'Parte1'
      FixedChar = True
      Size = 4
    end
    object Table3Parte2: TWideStringField
      FieldName = 'Parte2'
      FixedChar = True
      Size = 4
    end
    object Table3Senha: TWideStringField
      FieldName = 'Senha'
      FixedChar = True
      Size = 8
    end
    object Table3SenhaINSS: TWideStringField
      FieldName = 'SenhaINSS'
      FixedChar = True
      Size = 11
    end
  end
  object ADOQuery1: TADOQuery
    Connection = base.LED
    Parameters = <>
    Left = 437
    Top = 152
  end
end
